home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm3 / mcf4amrc.lha / MCF4AmIRC / Rexx / MCF_SOUND.AMIRX < prev    next >
Text File  |  1996-04-20  |  621b  |  24 lines
  1. /* MCF_SOUND.AMIRX
  2. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  3. // Please mail any bug reports/comments to the above address with a subject
  4. \\ header of MCF.AMIRX.
  5. //
  6. \\ ** What to do with this file?
  7. // Put this script in REXX:  It will be used by MCF.AMIRX.
  8. */
  9.  
  10. parse arg MCFenv Unick SoundPlayer SoundDir junk wavfile morejunk
  11.  
  12. xx = pos('01'x, wavfile)
  13. if xx > 0                        then
  14.     wavfile = left(wavfile, xx - 1)
  15. FN = SoundDir || wavfile
  16. if exists(FN)                        then do
  17.     address command SoundPlayer ">nil:" FN
  18.     exit
  19. end
  20. interpret "address" MCFenv
  21. "RAW PRIVMSG "Unick" :Sound file "wavfile" not found!"
  22.  
  23. exit
  24.